home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 83 / 64er_Magazin_Sonderheft_83_19xx_Markt__Technik_de_Side_A.d64 / fast format (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  43 lines
  1. 0 ifpeek(828)=99then2
  2. 1 ifa=0thena=1:poke828,99:load"ff.obj",8,1
  3. 2 fori=1to20:ln$=ln$+"[192]":ls$=ls$+" ":next:rd$="[144] "
  4. 4 la$=left$(ln$,18)
  5. 6 ur$(1)="[176]"+la$+"[174]":ur$(2)="[221]"+left$(ls$,18)+"[221]":ur$(3)="[173]"+left$(ln$,18)+"[189]
  6. 7 [151] 53280,1:[151] 53281,1:[153]"loadstop":[141]100
  7. 8 [153]"ascatn(NULL)(NULL)asc(NULL)(NULL)(NULL)atn(NULL) 11.0"
  8. 9 [153][166]3)"by mid$an (NULL)usch"
  9. 10 [153][163]1)"str$iskette einlegen,":[153][163]3)"dann <(NULL)val(NULL)(NULL)(NULL)(NULL)>!"
  10. 11 [161]t$:[139]t$[179][177][199](13)[167]11
  11. 12 [141]200
  12. 19 [151]19,64:[133]"contstr$iskname:";n$:[151]19,0:[153]:[153]:n$[178][200](n$,16)
  13. 20 [153][163]11);:[151]19,64:[133]"contright$str$-(NULL)ennung:";i$:[151]19,0:[153]:[153]
  14. 21 i$[178][200](i$,2)
  15. 30 [153][163]11);:[151]19,64:[133]"cont(NULL)aufwerk-(NULL)r.";d$:[151]19,0:[153]
  16. 31 d$[178][200](d$,1):d[178][197](d$)
  17. 35 [139]d[179][177]8[175]d[179][177]9[167]30
  18. 40 [158]49152,n$,i$,d
  19. 42 [141]300
  20. 50 [153]"def(NULL)och eine str$iskette":[153][163]1)"defformatieren? (j/n)"
  21. 60 [161]t$:[139]t$[178]"j"[167][138]
  22. 70 [139]t$[178]"n"[167][151]646,0:[153]"load":[128]
  23. 80 [137]60
  24. 100 [153]""[170]ur$(1)
  25. 102 [129]i[178]1[164]5:[153]ur$(2)[170]rd$[170]"":[130]
  26. 103 [153]ur$(3)[170]rd$
  27. 104 [153][163]2)rd$[170][200](ls$,18)
  28. 105 [151]214,2:[151]211,2:[158]58640
  29. 106 [142]
  30. 200 [151]214,10:[151]211,10:[158]58640
  31. 202 [153]"cont"[170]ls$[170][200](ls$,7)
  32. 204 [129]i[178]1[164]6:[153][163]10)"cont"[170]ls$[200](ls$,7)[170]rd$:[130]
  33. 206 [153][163]11)""[170]ls$[170][200](ls$,7)
  34. 207 [151]214,11:[151]211,11:[158]58640
  35. 210 [142]
  36. 300 [151]214,15:[151]211,0:[158]58640
  37. 301 [153]"def"[170]ur$(1)
  38. 302 [129]i[178]1[164]4:[153]ur$(2)[170]rd$[170]"def":[130]
  39. 303 [153]ur$(3)[170]rd$
  40. 304 [153][163]2)rd$[170][200](ls$,18)
  41. 305 [151]214,17:[151]211,1:[158]58640
  42. 306 [142]
  43.